x<-c(1,2,3)
Rrueba
Rprueba
dir
list.files()
Rscript Rprueba.R
source("RPrueba.R")
x<-c(1,2,3)
for (i in (1:10))
{
cat(i)
}
source("RPrueba.R")
debugSource("RPrueba.R")
debugSource('RPrueba.R')
debugSource('RPrueba.R')
debugSource('RPrueba.R')
debugSource('RPrueba.R')
debugSource('~/Rprueba.R')
debugSource('RPrueba.R')
debugSource('~/Rprueba.R')
getwd(9)
getwd()
list.files()
debugSource('~/Rprueba.R')
debugSource('Rprueba.R')
debugSource("RPrueba.R")
debugSource('RPrueba.R')
debugSource('Rprueba.R')
debugSource('Rprueba.R')
debugSource('Rprueba.R')
}
q()
q()
install.packages("F:/UDMTD02/ART29/Economics/submission/example/GVEC.zip", repos = NULL)
setwd("f:\\UDMTD02\\ART29\\Economics\\submission\\example")
library("polynom") # Load package polynom
library("GVEC")
install.packages("F:/UDMTD02/ART29/Economics/submission/example/GVEC_1.0.tar.gz", repos = NULL, type = "source")
library("GVEC")
series.data<-scan(file = "inc_exp_uk.txt",sep="\t",what=list(0,0,0,0))
xmat<-cbind(as.vector(series.data[[3]]),as.vector(series.data[[4]]))
x0<-ts(data=xmat,frequency=4,start=c(1,1))
n<-nrow(x0)
model0<-autoGVEC(x0,var.order='BIC',vec.order='BIC',logtrans=F,d='BIC',eps1=n^(-1/3),eps2=n^(-1/3),method=1)
pred<-GVECpred(x0,4,model0,64)
model0
